home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / EVOLV201.ZIP;1 / PROG1.MNT < prev    next >
Encoding:
Text File  |  1993-03-08  |  631 b   |  34 lines
  1. Program MultiplyTwo;:>;:>.( {<^>}( This program reads in two numbers and prints the productVar:>;( <^> : <^> {The first number}( FirstNumberInteger)
  2. <^> : <^> {The second number}( SecondNumber@6
  3. )
  4. <^> : <^> {The answer}( MyResult@6
  5. )
  6. )
  7. )
  8. Function <^>(<^>;<^>) : <^>;( MultiplyTwoNumbers<^> : <^>( OneNumber@6
  9. )
  10. <^> : <^>( AnotherNumber@6
  11. )
  12. @6
  13. begin:>;:>end( <^> := :> * ( @14
  14. @16
  15. @19
  16. )
  17. )
  18. )
  19. begin:>;:>end( readln(:>,:>)( @5
  20. @8
  21. )
  22. <^> := <^>(:>,:>)( @11
  23. @14
  24. @5
  25. @8
  26. )
  27. writeln(:>,:>)( 'The first: '@5
  28. ' The Second: '@8
  29. ' The Product: '@11
  30. )
  31. )
  32. )
  33.  0
  34.